perm filename F[SAM,LCS] blob sn#435748 filedate 1979-04-25 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	ARRAY F2 ,F1                                 
C00003 ENDMK
CāŠ—;
ARRAY F2 ,F1                                 
(512);
 PRINT "F2 -";
SEG  (F2   );     
    0.0000    1.0000
    0.9000    6.0000
    1.0000   11.0000
    0.9000   82.0000
    0.7000   90.0000
    0.0000  100.0000
 PRINT "F1 -";
SYNTH(F1   );   99
    1.0000    1.0000    0.0000    0.0000
  999.0000

COMMON TOOT;
FUNC FUN; 

P13ā†F1;
PLAY;TOOT 0 .1 1000 1 F2 ;FINISH;